home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Nibble Volume 07, No. 06 (1986-06)(MicroSPARC)(Side A).zip / Nibble Volume 07, No. 06 (1986-06)(MicroSPARC)(Side A).do / HELLO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  3KB  |  59 lines
  1. 10  HOME 
  2. 15  IF  PEEK(64435) < >6  THEN  GOSUB 630
  3. 20  GOSUB 220
  4. 110  VTAB 22: HTAB 5
  5. 115  PRINT "Nibble Diskette - June 1986 (A)"
  6. 120  COLOR= 0: VLIN 32,33 AT 23: VLIN 30,34 AT 24: VLIN 31,35 AT 25: RETURN 
  7. 130  COLOR= 0: VLIN 28,29 AT 24: VLIN 27,30 AT 25: VLIN 28,31 AT 26: RETURN 
  8. 140  COLOR= 0: VLIN 25,26 AT 25: VLIN 24,27 AT 26: VLIN 25,28 AT 27: RETURN 
  9. 150  COLOR= 0: VLIN 32,33 AT 17: VLIN 30,34 AT 16: VLIN 31,35 AT 15: RETURN 
  10. 160  COLOR= 0: VLIN 28,29 AT 16: VLIN 27,30 AT 15: VLIN 28,31 AT 14: RETURN 
  11. 170  COLOR= 0: VLIN 25,26 AT 15: VLIN 24,27 AT 14: VLIN 25,28 AT 13: RETURN 
  12. 180  COLOR= 13: HLIN 15,25 AT 24: FOR J = 1 TO 3: HLIN 16,24 AT 24 +J: NEXT J: RETURN 
  13. 190  COLOR= 13: FOR J = 1 TO 4: HLIN 17,23 AT 27 +J: NEXT J: RETURN 
  14. 200  COLOR= 13: HLIN 18,22 AT 32: HLIN 18,22 AT 33: HLIN 17,23 AT 34: HLIN 16,24 AT 35: RETURN 
  15. 210  RETURN 
  16. 220  GR :
  17. 230  FOR Z = 1 TO 10
  18. 240  IF Z = 1  THEN  GOSUB 390
  19. 250  COLOR= ( RND(1) *15) +1
  20. 260  VLIN 7,8 AT 1: VLIN 7,15 AT 2: VLIN 7,15 AT 3: VLIN 7,8 AT 4: VLIN 7,8 AT 5: VLIN 14,15 AT 5: VLIN 7,15 AT 6: VLIN 8,15 AT 7
  21. 270  COLOR= ( RND(1) *15) +1
  22. 280  VLIN 7,8 AT 9: VLIN 3,4 AT 10: VLIN 7,15 AT 10: VLIN 3,4 AT 11: VLIN 7,15 AT 11
  23. 290  COLOR= ( RND(1) *15) +1
  24. 300  VLIN 3,4 AT 13: VLIN 3,15 AT 14: VLIN 3,15 AT 15: VLIN 7,8 AT 16: VLIN 14,15 AT 16: VLIN 7,8 AT 17: VLIN 14,15 AT 17: VLIN 7,15 AT 18: VLIN 8,14 AT 19
  25. 310  COLOR= ( RND(1) *15) +1
  26. 320  VLIN 3,4 AT 21: VLIN 3,15 AT 22: VLIN 3,15 AT 23: VLIN 7,8 AT 24: VLIN 14,15 AT 24: VLIN 7,8 AT 25: VLIN 14,15 AT 25: VLIN 7,15 AT 26: VLIN 8,14 AT 27
  27. 330  COLOR= ( RND(1) *15) +1
  28. 340  VLIN 3,4 AT 29: VLIN 3,15 AT 30: VLIN 3,15 AT 31
  29. 350  COLOR= ( RND(1) *15) +1
  30. 360  HLIN 35,38 AT 7: HLIN 34,39 AT 8: HLIN 34,35 AT 9: HLIN 38,39 AT 9: HLIN 34,39 AT 10: HLIN 34,39 AT 11: HLIN 34,35 AT 12: HLIN 34,35 AT 13: HLIN 34,39 AT 14: HLIN 35,38 AT 15: HLIN 38,39 AT 14
  31. 370  ON Z GOSUB 110,130,140,150,160,170,180,190,200,210
  32. 380  NEXT Z: GOTO 570
  33. 390  REM  APPLE
  34. 400  COLOR= 12
  35. 410  VLIN 20,22 AT 20: VLIN 19,20 AT 21: VLIN 18,19 AT 22
  36. 420  VLIN 20,22 AT 20: VLIN 19,20 AT 21: VLIN 18,19 AT 22
  37. 430  COLOR= 1
  38. 440  HLIN 16,18 AT 22: HLIN 22,24 AT 22: HLIN 15,25 AT 23: HLIN 14,26 AT 24
  39. 450  HLIN 16,18 AT 22: HLIN 22,24 AT 22: HLIN 15,25 AT 23: HLIN 14,26 AT 24
  40. 460  FOR I = 1 TO 4: HLIN 13,27 AT I +24: NEXT I
  41. 470  FOR I = 1 TO 4: HLIN 13,27 AT I +24: NEXT I
  42. 480  FOR I = 1 TO 3: HLIN 14,26 AT 28 +I: NEXT I
  43. 490  HLIN 14,26 AT 29: HLIN 14,23 AT 30: HLIN 25,26 AT 30: HLIN 14,23 AT 31: PLOT 26,31
  44. 500  FOR I = 1 TO 4: HLIN 15,25 AT 31 +I: NEXT I
  45. 510  HLIN 15,22 AT 32: HLIN 15,22 AT 33
  46. 520  HLIN 15,23 AT 34: HLIN 15,24 AT 35: HLIN 16,24 AT 36
  47. 530  HLIN 15,23 AT 34: HLIN 15,24 AT 35: HLIN 16,24 AT 36
  48. 540  HLIN 16,23 AT 37: HLIN 18,19 AT 38: HLIN 21,22 AT 38
  49. 550  HLIN 16,23 AT 37: HLIN 18,19 AT 38: HLIN 21,22 AT 38
  50. 560  RETURN 
  51. 570  REM 
  52. 580  PRINT  CHR$(4);"RUN DISK DESCRIPTION"
  53. 590  END 
  54. 600 :
  55. 610  REM * //+ CONVERT(lowercase)
  56. 620 :
  57. 630  FOR I = 0 TO 23: READ ML: POKE 768 +I,ML: NEXT I: CALL 768: RETURN 
  58. 640  DATA  160,11,169,3,132,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,253
  59. 650  POKE 54,240: POKE 55,253: CALL 1002: RETURN